; Music of Super Monaco GP (1991) (U.S. Gold) (Tiny Williams)
; Ripped by Megachur the 11/02/2007

	write "SUPERMOG.BIN"

music_date_rip	equ &0b27
music_adr	equ &8000
first_theme	equ 1
last_theme	equ 6


	read "music_header_v1_0.asm"

; &8001=0 , &8000 poke theme 1->6 (3 = main theme)

;org #847b
;db "SOUND IMAGES (C) 1990"

;	org #8000
.l8005 equ $ + 5
.l8004 equ $ + 4
.l8003 equ $ + 3
.l8002 equ $ + 2
.l8001 equ $ + 1
.l8000
	db #03,#00,#00,#00,#00,#10
;
.play_music
;
	push af
	push bc
	push de
	push hl
	call l804d
	call l80c0
	ld a,(l8001)
	or a
	jr nz,l8025
	ld hl,l8632
	ld a,(hl)
	inc h
	or (hl)
	inc h
	or (hl)
	jr z,l8048
	ld a,#01
	ld (l811f),a
.l8025
	ld hl,l811f
	dec (hl)
	ld h,#86
	call l80fd
	inc h
	call l80fd
	inc h
	call l80fd
	call l82ab
	call l8214
	ld hl,l811f
	ld a,(hl)
	or a
	jr nz,l8045
.l8044 equ $ + 1
	ld (hl),#01
.l8045
	call l82bb
.l8048
	pop hl
	pop de
	pop bc
	pop af
	ret
.l804d
	ld a,(l8001)
	or a
	jr nz,l8059
	ld a,(l8000)
;
.init_music
;
	ld (l805a),a
.l805a equ $ + 1
.l8059
	ld a,#00
	or a
	ret z
	push af
	call l8302
	pop af
	cp #07
	ret nc
	ld (l8001),a
	dec a
	add a
	add a
	add a
	add #31
	ld e,a
	adc #89
	sub e
	ld d,a
	ld a,(de)
	inc de
	ld (l8044),a
	ld h,#86
	call l8091
	call l8091
	call l8091
	xor a
	ld (l8003),a
	inc a
	ld (l811f),a
	ld a,#10
	ld (l8005),a
	ret
.l8091
	ld l,#05
	ld (hl),#01
	dec l
	xor a
	ld (hl),a
	ld l,#07
	ld (hl),a
	ld l,#09
	ld (hl),a
	ld l,#15
	ld (hl),a
	ld l,#31
	ld (hl),a
	ld a,(de)
	inc de
	ld c,a
	ld a,(de)
	inc de
	ld b,a
	or c
	ret z
	ld l,#02
	ld a,(bc)
	ld (hl),a
	inc bc
	inc l
	ld a,(bc)
	ld (hl),a
	inc bc
	ld l,#00
	ld (hl),c
	inc l
	ld (hl),b
	ld l,#32
	ld (hl),#01
	inc h
	ret
.l80c0
	ld a,(l8002)
	or a
	ret z
	cp #09
	ret nc
	ld c,a
	ld hl,l8632
	ld a,(hl)
	or a
	jr z,l80d9
	inc h
	ld a,(hl)
	or a
	jr z,l80d9
	inc h
	ld a,(hl)
	or a
	ret nz
.l80d9
	inc (hl)
	ld (l8002),a
	ld l,#04
	ld (hl),a
	ld l,#15
	ld (hl),a
	ld a,c
	add a
	add #32
	ld c,a
	adc #9a
	sub c
	ld b,a
	ld a,(bc)
	ld l,#02
	ld (hl),a
	ld e,a
	inc l
	inc bc
	ld a,(bc)
	ld (hl),a
	ld d,a
	ld l,#16
	ld (hl),#01
	jp l8140
.l80fd
	ld l,#32
	ld a,(hl)
	or a
	ret z
	ld l,#04
	bit 7,(hl)
	jr z,l8119
.l8109 equ $ + 1
	ld a,#00
	dec a
	ld (l8109),a
	jr nz,l8119
	ld l,#20
	ld a,(l8693)
	or (hl)
	ld (l8693),a
.l8119
	ld l,#02
	ld e,(hl)
	inc l
	ld d,(hl)
.l811f equ $ + 1
	ld a,#01
	or a
	jr nz,l812e
	ld l,#05
	dec (hl)
	jr z,l8140
	call l869b
	call l8914
.l812e
	call l886e
	call l883a
	call l8833
	call l822b
	call l86a6
	jp l87e2
.l8140
	ld a,(de)
	inc de
	or a
	jp m,l8184
.l8146
	ld l,#0c
	ld (hl),a
	ld l,#02
	ld (hl),e
	inc l
	ld (hl),d
	call l86c1
	ld l,#14
	ld a,(hl)
	ld l,#0b
	ld (hl),a
	ld l,#0d
	ld a,(hl)
	ld l,#05
	ld (hl),a
	ld l,#18
	ld (hl),#00
	ld l,#2e
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#2c
	ld a,(hl)
	dec l
	ld (hl),a
	call l833d
	ld l,#0e
	call l8174
	inc l
.l8174
	ld a,(hl)
	ld c,a
	and #0f
	inc l
	ld (hl),a
	ld a,c
	rra
	rra
	rra
	rra
	and #0f
	inc l
	ld (hl),a
	ret
.l8184
	cp #e0
	jr nc,l81ac
	cp #d0
	jr nc,l81bc
	cp #c0
	jr nc,l81b4
	cp #b0
	jr nc,l81e3
	ld c,h
	add a
	add #33
	ld l,a
	adc #87
	sub l
	ld h,a
	ld a,c
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld h,a
	ld (l81a7),bc
.l81a7 equ $ + 1
	call #0000
	jp l8140
.l81ac
	sub #df
	ld l,#0d
	ld (hl),a
	jp l8140
.l81b4
	sub #c0
	ld l,#14
	ld (hl),a
	jp l8140
.l81bc
	sub #d0
	ld l,#14
	ld (hl),a
	ex de,hl
	ld e,#0e
	ldi
	ld e,#11
	ldi
	ex de,hl
	ld a,(de)
	rra
	rra
	rra
	rra
	and #0f
	ld l,#19
	ld (hl),a
	inc l
	ld (hl),a
	ld a,(de)
	and #0f
	ld l,#1b
	ld (hl),a
	inc l
	ld (hl),a
	inc de
	jp l8140
.l81e3
	sub #b0
	add a
	add #3c
	ld c,a
	adc #84
	sub c
	ld b,a
	ld a,(bc)
	ld l,#21
	ld (hl),a
	inc l
	inc bc
	ld a,(bc)
	ld (hl),a
	inc l
	ld (hl),#00
	ld l,#04
	set 0,(hl)
	jp l8140
.l81ff
	pop af
	call l8692
	ld a,(l8693)
	or c
	ld (l8693),a
	ld l,#32
	ld (hl),#00
	ret
.l820f
	ld l,#04
	res 0,(hl)
	ret
.l8214
	ld hl,l8228
	dec (hl)
	ret p
	xor a
	ld (hl),a
	inc hl
	cp (hl)
	ret z
	dec (hl)
	inc hl
	ld a,(l8331)
	add (hl)
	ld (l8331),a
	ret
.l822a equ $ + 2
.l8229 equ $ + 1
.l8228
	db #00,#00,#00
.l822c equ $ + 1
.l822b
	ld a,#55
	rrca
	ld (l822c),a
	ret c
	dec de
	ld a,(de)
	inc de
	cp #8e
	jr z,l8243
	ld l,#0d
	ld a,(hl)
	ld l,#2a
	sub (hl)
	ld l,#05
	cp (hl)
	ret c
.l8243
	ld l,#04
	bit 3,(hl)
	ret z
	ld l,#30
	ld a,(hl)
	or a
	jr z,l8259
	dec l
	dec (hl)
	jr nz,l8259
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#2b
	inc (hl)
.l8259
	ld l,#04
	bit 6,(hl)
	jr z,l8279
	ld l,#2d
	dec (hl)
	jr nz,l826d
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#04
	res 6,(hl)
	ret
.l826d
	ld l,#2b
	ld a,(hl)
	ld l,#07
	add (hl)
	ld (hl),a
	ret nc
	ld l,#09
	inc (hl)
	ret
.l8279
	ld l,#2d
	dec (hl)
	jr nz,l8287
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#04
	set 6,(hl)
	ret
.l8287
	ld l,#07
	ld a,(hl)
	ld l,#2b
	sub (hl)
	ld l,#07
	ld (hl),a
	ret nc
	ld l,#09
	dec (hl)
	ret
.l8295
	ld l,#04
	res 5,(hl)
	ret
.l829a
	ld a,#35
	ld (l8003),a
	ld (l8004),a
	ret
.l82a3
	ld a,(de)
	ld l,#31
	ld (hl),a
	inc de
	ret
.l82a9
	inc (hl)
	ret
.l82ab
	ld hl,l8003
	ld a,(hl)
	or a
	ret z
	inc hl
	dec (hl)
	ret nz
	ld (hl),a
	inc hl
	dec (hl)
	ret p
	inc (hl)
	jr l8302
.l82bb
	call l8323
	ld h,#86
	call l82c9
	inc h
	call l82c9
	ld h,#88
.l82c9
	ld l,#06
	call l82e5
	call l82e5
	ld a,(l8005)
	add a
	ret z
	ld b,(hl)
	inc l
	add a
	add a
	add a
	add (hl)
	push hl
	ld l,a
	ld h,#85
	ld a,b
	ld c,(hl)
	pop hl
	jr l82e9
.l82e5
	ld a,(hl)
	inc l
	ld c,(hl)
	inc l
.l82e9
	ld b,d
	out (c),a
.l82ed equ $ + 1
	ld a,#c0
	ld b,e
	out (c),a
	and #3f
	out (c),a
	ld b,d
	out (c),c
	ld b,e
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.l8301
	pop af
;
.stop_music
.l8302
;
	xor a
	ld (l8001),a
	ld (l805a),a
	ld (l8000),a
	ld (l8632),a
	ld (l8732),a
	ld (l8832),a
	ld (l8631),a
	ld (l8731),a
	ld (l8831),a
	ld a,#3f
	ld (l8693),a
.l8323
	ld de,#f4f6
	ld b,e
	in a,(c)
	or #c0
	ld (l82ed),a
	ld a,#06
.l8331 equ $ + 1
	ld c,#01
	call l82e9
	ld a,(l8693)
	ld c,a
	ld a,#07
	jr l82e9
.l833d
	ld l,#04
	bit 7,(hl)
	ret z
.l8343 equ $ + 1
	ld a,#00
	ld (l8331),a
	xor a
	ld (l8228),a
	ld (l8229),a
	ld (l822a),a
	ld a,#01
	ld (l8109),a
	ld l,#20
	ld a,(hl)
	cpl
	ld c,a
	ld a,(l8693)
	and c
	ld (l8693),a
	ret
.l8363
	ld l,#15
	ld (hl),#01
	ret
.l8368
	ld l,#15
	ld (hl),#ff
	ret
.l836d
	ld l,#04
	set 7,(hl)
	ret
.l8372
	ld a,(de)
	inc de
	ld (l8343),a
	ret
.l8378
	ex de,hl
	ld e,#27
	ldi
	ldi
	ld e,#24
	ldi
	ldi
	ld e,#29
	ldi
	ex de,hl
	ld l,#04
	set 2,(hl)
	ret
.l838f
	ld l,#04
	res 2,(hl)
	ret
	dw #077c,#0710,#06ab,#064b
	dw #05f1,#059b,#054b,#04ff
	dw #04b7,#0473,#0433,#03f7
	dw #03be,#0388,#0355,#0326
	dw #02f8,#02ce,#02a5,#027f
	dw #025c,#023a,#021a,#01fb
	dw #01df,#01c4,#01ab,#0193
	dw #017c,#0167,#0153,#0140
	dw #012e,#011d,#010d,#00fe
	dw #00f0,#00e2,#00d5,#00c9
	dw #00be,#00b3,#00a9,#00a0
	dw #0097,#008e,#0086,#007f
	dw #0078,#0071,#006b,#0065
	dw #005f,#005a,#0055,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0039,#0035,#0032
	dw #0030,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw l8450,l845f,l8461,l8463
	dw l8465,l8467,l846b,l846f
	dw l8473,l8478
.l8450
	db #00,#01,#02,#83,#80,#00,#0c,#01
.l845f equ $ + 7
	db #0d,#02,#0e,#01,#0d,#00,#8c,#00
.l8467 equ $ + 7
.l8465 equ $ + 5
.l8463 equ $ + 3
.l8461 equ $ + 1
	db #83,#00,#84,#00,#85,#00,#86,#0c
.l846f equ $ + 7
.l846b equ $ + 3
	db #10,#00,#84,#0c,#0f,#00,#83,#0c
.l8473 equ $ + 3
	db #11,#00,#85,#00,#00,#00,#00,#8c
.l8478
	db #0c,#00,#80
	db #53,#4f,#55,#4e,#44,#20,#49,#4d
	db #41,#47,#45,#53,#20,#28,#43,#29
	db #20,#31,#39,#39,#30
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#02,#03,#04,#05,#06,#07
	db #08,#09,#0a,#0b,#0c,#0d,#0e,#0f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #01,#01,#01,#01,#01,#01,#01,#01
	db #00,#00,#00,#00,#00,#00,#01,#01
	db #01,#01,#01,#02,#02,#02,#02,#02
	db #00,#00,#00,#00,#01,#01,#01,#01
	db #02,#02,#02,#02,#03,#03,#03,#03
	db #00,#00,#00,#00,#01,#01,#01,#02
	db #02,#02,#03,#03,#03,#04,#04,#04
	db #00,#00,#00,#01,#01,#01,#02,#02
	db #03,#03,#03,#04,#04,#04,#05,#05
	db #00,#00,#00,#01,#01,#02,#02,#03
	db #03,#03,#04,#04,#05,#05,#06,#06
	db #00,#00,#01,#01,#02,#02,#03,#03
	db #04,#04,#05,#05,#06,#06,#07,#07
	db #00,#00,#01,#01,#02,#02,#03,#03
	db #04,#05,#05,#06,#06,#07,#07,#08
	db #00,#00,#01,#01,#02,#03,#03,#04
	db #05,#05,#06,#06,#07,#08,#08,#09
	db #00,#00,#01,#02,#02,#03,#04,#04
	db #05,#06,#06,#07,#08,#08,#09,#0a
	db #00,#00,#01,#02,#03,#03,#04,#05
	db #06,#06,#07,#08,#09,#09,#0a,#0b
	db #00,#00,#01,#02,#03,#04,#04,#05
	db #06,#07,#08,#08,#09,#0a,#0b,#0c
	db #00,#00,#01,#02,#03,#04,#05,#06
	db #07,#07,#08,#09,#0a,#0b,#0c,#0d
	db #00,#00,#01,#02,#03,#04,#05,#06
	db #07,#08,#09,#0a,#0b,#0c,#0d,#0e
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #01,#00,#08,#0f,#00,#04,#00,#00
	db #00,#00,#00,#00,#0f,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#01
	db #08,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l8632 equ $ + 2
.l8631 equ $ + 1
	db #00,#00,#00
.l8633
	call l8692
	ld l,#1f
.l8638
	ld a,(hl)
.l8639
	cpl
	and c
	ld (l8693),a
	ld l,#04
	res 4,(hl)
	res 0,(hl)
	ret
.l8645
	call l865c
	call l8692
	ld l,#20
	jr l8638
.l864f
	call l865c
.l8652
	call l8692
	ld l,#1f
	ld a,(hl)
	inc l
	or (hl)
	jr l8639
.l865c
	ld a,(de)
	inc de
	ld (l8331),a
	ld a,(de)
	inc de
	ld (l822a),a
	ld a,(de)
	inc de
	ld (l8228),a
	ld a,(de)
	inc de
	ld (l8229),a
	ret
.l8671
	call l8692
	ld l,#20
	ld a,(hl)
	cpl
	and c
	ld (l8693),a
	ld l,#04
	set 4,(hl)
	ret
.l8681
	ld l,#0b
	ld (hl),#00
.l8685
	pop af
	ld l,#0d
	ld a,(hl)
	ld l,#05
	ld (hl),a
	ld l,#02
	ld (hl),e
	inc l
	ld (hl),d
	ret
.l8693 equ $ + 1
.l8692
	ld a,#3f
	ld l,#1f
	or (hl)
	inc l
	or (hl)
	ld c,a
	ret
.l869b
	ld l,#15
	ld a,(hl)
	or a
	ret z
	ld l,#0c
	add (hl)
	ld (hl),a
	jr l86c1
.l86a6
	ld l,#04
	bit 0,(hl)
	ret z
	ld l,#21
	ld a,(hl)
	inc l
	ld b,(hl)
	inc l
	add (hl)
	ld c,a
	jr nc,l86b6
	inc b
.l86b6
	inc (hl)
	ld a,(bc)
	or a
	jp p,l86be
	ld (hl),#00
.l86be
	ld l,#0c
	add (hl)
.l86c1
	ld l,#31
	add (hl)
	add a
	add #94
	ld c,a
	adc #83
	sub c
	ld b,a
	ld a,(bc)
	inc bc
	ld l,#07
	ld (hl),a
	ld a,(bc)
	ld l,#09
	ld (hl),a
	ld l,#04
	bit 2,(hl)
	jr z,l86f5
	push de
	ld l,#27
	ld e,(hl)
	inc l
	ld d,(hl)
	ld l,#07
	ld c,(hl)
	ld l,#09
	ld b,(hl)
	ex de,hl
	add hl,bc
	ex de,hl
	ld (hl),d
	ld l,#07
	ld (hl),e
	pop de
	ld l,#29
	ld a,(hl)
	ld l,#26
	ld (hl),a
.l86f5
	ld l,#04
	bit 5,(hl)
	ret z
	res 1,(hl)
	ret
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#02,#00,#03,#00,#09,#0f,#00
	db #04,#00,#00,#00,#00,#00,#00,#0f
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#02,#10,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l8732 equ $ + 5
.l8731 equ $ + 4
	db #00,#00,#00,#00,#00,#00
	dw l87bc,l8363,l8368,l8786
	dw l820f,l87a5,l8378,l838f
	dw l876b,l87f5,l8633,l8645
	dw l864f,l8671,l8685,l8681
	dw l82a3,l8301,l88c1,l88ef
	dw l87b4,l81ff,l8295,l829a
	dw l836d,l87fa,l879f,l8372
.l876b
	ex de,hl
	ld e,#2a
	ldi
	ld a,(hl)
	ldi
	ld (de),a
	inc e
	ld a,(hl)
	ldi
	ld (de),a
	inc e
	ld a,(hl)
	ldi
	ld (de),a
	ex de,hl
	ld l,#04
	set 3,(hl)
	set 6,(hl)
	ret
.l8786
	ld a,(de)
	inc de
	ld l,#16
	ld (hl),a
	ld a,(de)
	rra
	rra
	rra
	rra
	and #0f
	ld l,#1d
	ld (hl),a
	inc l
	ld (hl),a
	ld a,(de)
	and #0f
	ld l,#17
	ld (hl),a
	inc de
	ret
.l879f
	ld l,#04
	set 5,(hl)
	jr l87a9
.l87a5
	ld l,#04
	set 1,(hl)
.l87a9
	ex de,hl
	ld e,#24
	ldi
	ldi
	ldi
	ex de,hl
	ret
.l87b4
	ld l,#00
	ex de,hl
	ldi
	ldi
	ex de,hl
.l87bc
	ld a,(l8000)
	ld (l805a),a
	ld l,#00
	ld c,(hl)
	inc l
	ld b,(hl)
	ld a,(bc)
	ld e,a
	inc bc
	ld a,(bc)
	inc bc
	ld d,a
	or e
	jr z,l87d9
	ld (hl),b
	dec l
	ld (hl),c
	inc l
	inc l
	ld (hl),e
	inc l
	ld (hl),d
	ret
.l87d9
	ld d,b
	ld e,c
	pop bc
	ld a,(l9a29)
	jp l8184
.l87e2
	ld l,#04
	bit 4,(hl)
	ret z
	ld l,#1f
	ld a,(hl)
	inc l
	or (hl)
	ld c,a
	ld a,(l8693)
	xor c
	ld (l8693),a
	ret
.l87f5
	ld l,#04
	res 3,(hl)
	ret
.l87fa
	ld l,#04
	res 7,(hl)
	ret
	db #00,#00,#00,#00,#00,#00,#00,#04
	db #00,#05,#00,#0a,#0f,#00,#04,#00
	db #00,#00,#00,#00,#00,#0f,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #04,#20,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l8832 equ $ + 3
.l8831 equ $ + 2
	db #00,#00,#00,#00
.l8833
	ld l,#04
	bit 2,(hl)
	jr nz,l883f
	ret
.l883a
	ld l,#04
	bit 1,(hl)
	ret z
.l883f
	ld l,#26
	dec (hl)
	jp m,l82a9
	ld l,#25
	bit 7,(hl)
	jr nz,l885a
	ld l,#24
	ld a,(hl)
	ld l,#07
	add (hl)
	ld (hl),a
	ld l,#25
	ld a,(hl)
	ld l,#09
	adc (hl)
	ld (hl),a
	ret
.l885a
	ld l,#07
	ld a,(hl)
	ld l,#24
	sub (hl)
	ld l,#07
	ld (hl),a
	ld l,#25
	ld c,(hl)
	res 7,c
	ld l,#09
	ld a,(hl)
	sbc c
	ld (hl),a
	ret
.l886e
	ld l,#0f
	ld a,(hl)
	or a
	jr z,l8889
	ld l,#19
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#0f
	dec (hl)
	inc l
	ld a,(hl)
	ld l,#0b
	add (hl)
	cp #0f
	ret nc
	ld (hl),a
	ret
.l8889
	ld l,#12
	ld a,(hl)
	or a
	jr z,l88a7
	ld l,#1b
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#12
	dec (hl)
	ld l,#0b
	ld a,(hl)
	ld l,#13
	sub (hl)
	jr nc,l88a3
	xor a
.l88a3
	ld l,#0b
	ld (hl),a
	ret
.l88a7
	ld l,#18
	ld a,(hl)
	or a
	ret z
	ld l,#1d
	dec (hl)
	ret nz
	inc l
	ld a,(hl)
	dec l
	ld (hl),a
	ld l,#0b
	ld a,(hl)
	ld l,#17
	sub (hl)
	jr nc,l88bd
	xor a
.l88bd
	ld l,#0b
	ld (hl),a
	ret
.l88c1
	pop af
	call l8652
	ld a,#1f
	ld (l8331),a
	xor a
	ld (l8228),a
	ld a,#e1
	ld (l822a),a
	ld a,#03
	ld (l8229),a
	ld l,#21
	ld (hl),#50
	inc l
	ld (hl),#84
	ld l,#04
	set 0,(hl)
	set 1,(hl)
	res 7,(hl)
	ld a,#1a
	ld l,#31
	sub (hl)
	jp l8146
.l88ef
	pop af
	call l8633
	ld l,#24
	ld (hl),#70
	inc l
	ld (hl),#00
	inc l
	ld (hl),#0c
	ld l,#04
	set 1,(hl)
	ld l,#21
	ld (hl),#50
	inc l
	ld (hl),#84
	ld l,#04
	set 0,(hl)
	ld a,#09
	ld l,#31
	sub (hl)
	jp l8146
.l8914
	ld l,#16
	ld a,(hl)
	ld l,#05
	cp (hl)
	ret nz
	ld a,(de)
	cp #8e
	ret z
	ld l,#18
	ld (hl),#01
	ld l,#15
	ld (hl),#00
	ld l,#04
	res 1,(hl)
	bit 5,(hl)
	ret z
	set 1,(hl)
	ret
.l8931
	db #04
	dw l8960,l8972,l8982
	db #05,#05
	dw l8fb0,l8fbc,l8fc8
	db #04,#04
	dw l9211,l921d,l9229
	db #04,#04
	dw l9822,l9824,l9826
	db #04,#04
	dw l98af,l98b1,l98b3
	db #04,#04
	dw l996e,l9976,l997e
.l8964 equ $ + 4
.l8960
	dw l8990,l89dc,l8a1a,l8a7a
	dw l8a1a,l8a7a,l8ad8,#0000
	dw l8964
.l8978 equ $ + 6
.l8972
	dw l8aff,l8b1f,l8b79,l8bcb
	dw l8bcb,l8c6c,#0000
.l8986 equ $ + 6
.l8982 equ $ + 2
	dw l8978,l8d1a,l8d66,l8da4
	dw l8e42,l8ee3,#0000
	dw l8986
.l8990
	db #da,#22,#12,#15,#83,#01,#11,#8a
	db #90,#18,#88,#00,#01,#01,#00,#e1
	db #13,#13,#13,#13,#13,#8e,#13,#13
	db #8e,#13,#8e,#13,#13,#8e,#13,#8e
	db #13,#13,#13,#13,#13,#8e,#13,#13
	db #8e,#13,#8e,#13,#13,#8e,#13,#8e
	db #13,#13,#13,#13,#13,#8e,#13,#13
	db #8e,#13,#8e,#13,#13,#8e,#13,#f0
	db #88,#04,#01,#02,#00,#12,#8e,#88
.l89dc equ $ + 4
	db #00,#01,#01,#00,#e1,#13,#13,#13
	db #13,#13,#8e,#13,#13,#8e,#13,#8e
	db #13,#13,#8e,#13,#8e,#13,#13,#13
	db #13,#13,#8e,#13,#13,#8e,#13,#8e
	db #13,#13,#8e,#13,#8e,#13,#13,#13
	db #13,#13,#8e,#13,#13,#8e,#13,#8e
	db #13,#13,#8e,#13,#f0,#88,#04,#01
	db #02,#00,#13,#8e,#88,#00,#01,#01
.l8a1a equ $ + 2
	db #00,#80,#dd,#00,#1f,#13,#83,#01
	db #11,#8a,#90,#18,#e1,#b1,#15,#15
	db #e3,#15,#e1,#b3,#13,#e5,#b1,#15
	db #e3,#8f,#b1,#15,#e1,#b3,#13,#e5
	db #b1,#15,#e1,#b2,#1f,#1f,#e3,#13
	db #e1,#b4,#11,#e5,#b2,#13,#e3,#b2
	db #13,#e1,#b4,#11,#e9,#b2,#13,#e1
	db #1f,#1f,#e3,#13,#e1,#b4,#11,#e5
	db #b2,#13,#e3,#8f,#b2,#1f,#e1,#b4
	db #1d,#e5,#b2,#1f,#e1,#b1,#15,#15
	db #e3,#15,#e1,#b3,#13,#e5,#b1,#15
	db #e3,#b1,#15,#e1,#b3,#13,#b1,#e9
.l8a7a equ $ + 2
	db #15,#80,#de,#00,#1f,#13,#83,#01
	db #11,#8a,#e1,#b1,#15,#15,#e3,#15
	db #e1,#b3,#13,#e5,#b1,#15,#e3,#8f
	db #b1,#15,#e1,#b3,#13,#e5,#b1,#15
	db #e1,#b2,#1f,#1f,#e3,#13,#e1,#b4
	db #11,#e5,#b2,#13,#e3,#b2,#13,#e1
	db #b4,#11,#e9,#b2,#13,#e1,#1f,#1f
	db #cc,#e3,#13,#e1,#b4,#11,#e5,#b2
	db #13,#e3,#8f,#e1,#b2,#13,#13,#b3
	db #13,#e5,#b2,#13,#e1,#b1,#15,#15
	db #e3,#15,#e1,#b3,#13,#e5,#b1,#15
	db #e1,#8f,#e5,#b2,#1d,#e7,#1f,#80
.l8ad8
	db #d9,#13,#12,#1b,#83,#01,#31,#8a
	db #90,#18,#ef,#b5,#11,#13,#0c,#8e
	db #11,#13,#11,#13,#b7,#0c,#0e,#b5
	db #0c,#b7,#0c,#ed,#b6,#0e,#e1,#0e
.l8aff equ $ + 7
	db #ef,#0e,#b5,#ef,#0c,#0c,#80,#de
	db #00,#27,#11,#83,#01,#11,#8a,#ff
	db #8f,#8f,#8f,#fb,#8f,#e0,#85,#40
	db #00,#01,#18,#85,#40,#00,#01,#18
.l8b1f equ $ + 7
	db #e1,#85,#40,#00,#02,#15,#80,#de
	db #00,#1f,#13,#83,#01,#11,#8a,#e1
	db #0e,#0e,#92,#8a,#0e,#0e,#8e,#92
	db #8a,#0e,#8e,#0e,#92,#8a,#0e,#0e
	db #8e,#92,#8a,#0e,#0e,#0e,#92,#8a
	db #0e,#0e,#8e,#92,#8a,#0e,#8e,#0e
	db #92,#8a,#0e,#0e,#8e,#92,#8a,#0e
	db #0e,#0e,#92,#8a,#0e,#0e,#8e,#92
	db #8a,#0e,#8e,#0e,#92,#8a,#0e,#0e
	db #8e,#92,#8a,#0e,#0e,#0e,#92,#8a
	db #0e,#0e,#8e,#92,#8a,#0e,#8e,#0e
	db #92,#8a,#0e,#0e,#8e,#92,#8a,#0e
.l8b79 equ $ + 1
	db #80,#e1,#0e,#0e,#92,#8a,#0e,#0e
	db #8e,#92,#8a,#0e,#8e,#0e,#92,#8a
	db #0e,#0e,#8e,#92,#8a,#0e,#0e,#0e
	db #92,#8a,#0e,#0e,#8e,#92,#8a,#0e
	db #8e,#0e,#92,#8a,#0e,#0e,#8e,#92
	db #8a,#0e,#0e,#0e,#92,#8a,#0e,#0e
	db #8e,#92,#8a,#0e,#8e,#0e,#92,#8a
	db #0e,#0e,#8e,#92,#8a,#0e,#0e,#0e
	db #92,#8a,#0e,#0e,#8e,#92,#8a,#0e
	db #92,#8a,#0e,#0e,#0e,#0e,#92,#92
.l8bcb equ $ + 3
	db #92,#8a,#80,#e1,#15,#15,#92,#8a
	db #15,#15,#15,#92,#8a,#15,#15,#15
	db #92,#8a,#15,#15,#15,#92,#8a,#15
	db #13,#13,#92,#8a,#13,#13,#13,#92
	db #8a,#13,#13,#13,#92,#8a,#13,#13
	db #13,#92,#8a,#13,#13,#13,#92,#8a
	db #13,#13,#13,#92,#8a,#13,#13,#13
	db #92,#8a,#13,#13,#13,#92,#8a,#13
	db #15,#15,#92,#8a,#15,#15,#15,#92
	db #8a,#15,#15,#15,#92,#8a,#15,#1a
	db #15,#92,#8a,#15,#15,#15,#92,#8a
	db #15,#15,#15,#92,#8a,#15,#15,#15
	db #92,#8a,#15,#15,#15,#92,#8a,#15
	db #13,#13,#92,#8a,#13,#13,#13,#92
	db #8a,#13,#13,#13,#92,#8a,#13,#13
	db #13,#92,#8a,#13,#13,#13,#92,#8a
	db #13,#13,#13,#92,#8a,#13,#13,#13
	db #92,#8a,#13,#13,#13,#92,#8a,#13
	db #15,#15,#92,#8a,#15,#15,#15,#92
	db #8a,#15,#11,#11,#11,#11,#13,#92
.l8c6c equ $ + 4
	db #92,#92,#8a,#80,#de,#00,#1f,#13
	db #83,#01,#11,#8a,#e1,#11,#11,#92
	db #8a,#11,#11,#11,#92,#8a,#11,#13
	db #13,#92,#8a,#13,#13,#13,#92,#8a
	db #13,#0c,#0c,#92,#8a,#0c,#0c,#0c
	db #92,#8a,#0c,#13,#13,#92,#8a,#13
	db #0c,#0c,#92,#8a,#0c,#11,#11,#92
	db #8a,#11,#11,#11,#92,#8a,#11,#13
	db #13,#92,#8a,#13,#0c,#0c,#92,#8a
	db #0c,#0c,#0c,#92,#8a,#0c,#0c,#0c
	db #92,#8a,#0c,#13,#13,#92,#8a,#13
	db #0c,#0c,#92,#8a,#0c,#11,#11,#92
	db #8a,#11,#11,#11,#92,#8a,#11,#13
	db #13,#92,#8a,#13,#0c,#0c,#92,#8a
	db #0c,#0c,#0c,#92,#8a,#0c,#0c,#0c
	db #92,#8a,#0c,#11,#11,#92,#8a,#11
	db #11,#11,#92,#8a,#11,#0e,#0e,#92
	db #8a,#0e,#0e,#0e,#92,#8a,#0e,#0e
	db #0e,#92,#8a,#0e,#0e,#0e,#92,#8a
	db #0e,#0c,#0c,#92,#8a,#0c,#0c,#0c
	db #92,#8a,#0c,#92,#8a,#0c,#92,#8a
	db #0c,#92,#8a,#0c,#92,#e0,#92,#92
.l8d1a equ $ + 2
	db #8a,#80,#d9,#22,#12,#15,#83,#01
	db #11,#8a,#90,#18,#88,#00,#01,#01
	db #00,#e1,#18,#18,#18,#18,#18,#8e
	db #18,#18,#8e,#18,#8e,#18,#18,#8e
	db #18,#8e,#17,#17,#17,#17,#17,#8e
	db #17,#17,#8e,#17,#8e,#17,#17,#8e
	db #17,#8e,#18,#18,#18,#18,#18,#8e
	db #18,#18,#8e,#18,#8e,#18,#18,#8e
	db #17,#f0,#88,#04,#01,#02,#00,#15
.l8d66 equ $ + 6
	db #8e,#88,#00,#01,#01,#00,#e1,#18
	db #18,#18,#18,#18,#8e,#18,#18,#8e
	db #18,#8e,#18,#18,#8e,#18,#8e,#17
	db #17,#17,#17,#17,#8e,#17,#17,#8e
	db #17,#8e,#17,#17,#8e,#17,#8e,#18
	db #18,#18,#18,#18,#8e,#18,#18,#8e
	db #18,#8e,#18,#18,#8e,#1a,#f0,#88
	db #04,#01,#02,#00,#17,#8e,#88,#00
.l8da4 equ $ + 4
	db #01,#01,#00,#80,#dc,#21,#13,#13
	db #83,#01,#31,#8a,#88,#02,#01,#02
	db #00,#90,#24,#e3,#85,#07,#80,#01
	db #0b,#0c,#e1,#0e,#0b,#8e,#0b,#e3
	db #85,#07,#80,#01,#0b,#0c,#e1,#0c
	db #e3,#0e,#e1,#0c,#e3,#85,#08,#80
	db #02,#09,#e1,#0c,#e3,#0b,#e1,#09
	db #f3,#85,#0a,#80,#02,#05,#90,#18
	db #e3,#85,#10,#80,#02,#09,#e1,#0c
	db #e5,#07,#e1,#07,#09,#e3,#0b,#e1
	db #0c,#0b,#8e,#09,#07,#f0,#85,#12
	db #80,#02,#07,#8e,#90,#24,#e3,#85
	db #07,#80,#01,#0b,#e1,#0e,#e3,#0b
	db #e1,#0b,#0c,#0e,#e2,#0c,#0e,#e1
	db #10,#e2,#10,#0e,#e1,#85,#17,#80
	db #01,#09,#e3,#0b,#e1,#0c,#e3,#0b
	db #09,#f1,#85,#0a,#80,#02,#05,#e3
	db #0b,#e1,#09,#e3,#0b,#e1,#09,#07
	db #09,#eb,#0b,#90,#18,#e1,#0e,#0c
	db #e5,#0b,#0c,#e3,#07,#ed,#09,#e1
.l8e42 equ $ + 2
	db #07,#80,#dc,#21,#12,#13,#83,#01
	db #31,#8a,#90,#18,#e0,#15,#13,#11
	db #13,#e5,#15,#e0,#15,#17,#e1,#18
	db #e0,#17,#18,#e1,#1a,#e0,#18,#1a
	db #e1,#1c,#e0,#1a,#1c,#e1,#1d,#e0
	db #1c,#1d,#e1,#1f,#e0,#1d,#1c,#21
	db #1f,#1d,#1c,#1f,#1d,#1c,#1d,#1c
	db #1a,#18,#1a,#18,#17,#15,#17,#ef
	db #1f,#e9,#85,#1f,#80,#01,#09,#e1
	db #0b,#0c,#0e,#17,#e0,#15,#13,#e1
	db #0b,#e0,#13,#15,#e1,#17,#e0,#15
	db #13,#e1,#10,#e0,#11,#13,#ff,#15
	db #90,#24,#e1,#0c,#0e,#10,#8e,#0e
	db #0c,#8e,#0c,#8e,#0e,#10,#0e,#0c
	db #8e,#e0,#0c,#0b,#09,#0b,#eb,#13
	db #e1,#11,#10,#e3,#11,#e1,#10,#e9
	db #0e,#90,#0c,#e0,#13,#15,#17,#15
	db #17,#18,#1a,#18,#1a,#1c,#1d,#1c
	db #1d,#1f,#21,#1f,#90,#18,#eb,#17
	db #e0,#18,#17,#15,#13,#ff,#83,#08
.l8ee3 equ $ + 3
	db #41,#15,#80,#dc,#21,#12,#13,#83
	db #01,#31,#8a,#88,#02,#01,#02,#00
	db #90,#24,#e7,#85,#07,#80,#01,#0b
	db #e1,#0e,#e3,#0b,#e3,#85,#07,#80
	db #01,#0b,#e1,#0b,#09,#04,#e7,#07
	db #e3,#85,#06,#80,#02,#0e,#e1,#0c
	db #e3,#85,#0d,#80,#01,#0c,#e1,#09
	db #0c,#07,#83,#04,#51,#9a,#06,#00
	db #18,#ef,#04,#96,#83,#01,#31,#e1
	db #90,#18,#8f,#10,#0e,#0c,#0e,#09
	db #8e,#0c,#8e,#13,#10,#13,#15,#90
	db #24,#0b,#0c,#0e,#e3,#0c,#13,#e1
	db #15,#e5,#11,#e7,#85,#0d,#80,#01
	db #0c,#e1,#90,#18,#13,#15,#90,#24
	db #0b,#0c,#e2,#10,#e0,#0e,#e1,#0c
	db #e2,#10,#e0,#0e,#e1,#0c,#e2,#10
	db #e0,#0e,#e1,#0c,#e2,#11,#e0,#10
	db #e1,#0e,#e2,#10,#e0,#0e,#e1,#0c
	db #0e,#0c,#0b,#09,#0c,#0b,#09,#0b
	db #0c,#0e,#0c,#0b,#90,#18,#15,#17
	db #15,#13,#11,#e3,#13,#e1,#10,#8f
	db #10,#10,#10,#e3,#13,#e1,#10,#10
	db #10,#10,#11,#13,#e9,#85,#09,#80
	db #02,#13,#e1,#15,#90,#24,#0b,#0c
	db #85,#06,#80,#02,#0e,#83,#04,#51
	db #9a,#06,#00,#18,#ef,#10,#96,#80
.l8fb2 equ $ + 2
.l8fb0
	dw l8fd4,l8fd7,l8ff5,l8ff5
.l8fbe equ $ + 6
.l8fbc equ $ + 4
	dw #0000,l8fb2,l902c,l9046
	dw l907d,l907d,#0000
.l8fca equ $ + 4
.l8fc8 equ $ + 2
	dw l8fbe,l8fd4,l9189,l91d1
	dw l91d1,#0000
	dw l8fca
.l8fd4
	db #e7,#8f
.l8fd7 equ $ + 1
	db #80,#d9,#13,#15,#2a,#83,#01,#11
	db #8a,#90,#18,#f9,#b5,#0e,#e1,#0d
	db #8f,#fb,#0c,#e1,#0d,#8f,#fb,#0e
.l8ff5 equ $ + 7
	db #e1,#0d,#8f,#f0,#0c,#8e,#80,#d8
	db #14,#16,#13,#88,#04,#01,#02,#00
	db #e5,#b5,#0e,#e1,#0e,#8f,#0e,#8f
	db #0c,#ef,#b7,#09,#b5,#09,#8e,#e5
	db #0c,#e1,#0c,#8f,#0c,#8f,#0e,#ef
	db #0c,#ff,#07,#0d,#f9,#0f,#e1,#b6
	db #0b,#8f,#fb,#b5,#0c,#e1,#b6,#0b
.l902c equ $ + 6
	db #8f,#f0,#b5,#0c,#8e,#80,#dd,#00
	db #1f,#12,#83,#01,#11,#e1,#92,#92
	db #dc,#00,#26,#11,#8a,#85,#40,#00
	db #02,#15,#85,#40,#00,#02,#11,#80
.l9046
	db #da,#13,#1f,#14,#83,#01,#11,#8a
	db #e9,#10,#e1,#1a,#1c,#8e,#8e,#15
	db #17,#8e,#8e,#0f,#8e,#ef,#0e,#e1
	db #09,#e3,#0e,#e5,#0e,#e1,#0f,#8e
	db #eb,#10,#e1,#1a,#1c,#8e,#8e,#15
	db #17,#8e,#8e,#0f,#8e,#ef,#0e,#e1
.l907d equ $ + 7
	db #09,#e3,#0e,#e5,#0e,#0f,#80,#da
	db #13,#1f,#14,#8a,#e3,#10,#10,#dd
	db #00,#1f,#12,#e1,#92,#da,#13,#1f
	db #14,#8a,#e1,#1a,#1c,#15,#e7,#17
	db #dd,#00,#1f,#12,#e3,#92,#da,#13
	db #1f,#14,#8a,#e1,#0b,#0a,#e3,#09
	db #09,#dd,#00,#1f,#12,#e1,#92,#da
	db #13,#1f,#14,#8a,#e1,#13,#15,#0e
	db #e7,#10,#dd,#00,#1f,#12,#e1,#92
	db #da,#13,#1f,#14,#8a,#e1,#09,#10
	db #0f,#e3,#0e,#0e,#dd,#00,#1f,#12
	db #e1,#92,#da,#13,#1f,#14,#8a,#e1
	db #18,#1a,#13,#e7,#15,#dd,#00,#1f
	db #12,#e3,#92,#da,#13,#1f,#14,#8a
	db #0e,#07,#07,#dd,#00,#1f,#12,#e1
	db #92,#da,#13,#1f,#14,#8a,#e1,#18
	db #1a,#11,#e7,#13,#dd,#00,#1f,#12
	db #92,#da,#13,#1f,#14,#8a,#e7,#0a
	db #dd,#00,#1f,#12,#e1,#92,#da,#13
	db #1f,#14,#8a,#e1,#11,#8f,#16,#8f
	db #11,#8f,#0a,#dd,#00,#1f,#12,#e3
	db #92,#da,#13,#1f,#14,#8a,#0a,#e7
	db #0c,#dd,#00,#1f,#12,#e1,#92,#da
	db #13,#1f,#14,#8a,#8f,#13,#18,#1a
	db #0c,#8e,#13,#dd,#00,#1f,#12,#92
	db #da,#13,#1f,#14,#8a,#0c,#8e,#8f
	db #e7,#0e,#dd,#00,#1f,#12,#92,#8f
	db #e1,#92,#da,#13,#1f,#14,#8a,#0c
	db #8f,#0e,#8e,#8e,#8e,#8e,#dd,#00
	db #1f,#12,#e7,#92,#e1,#92,#92,#dd
	db #00,#26,#11,#8a,#85,#40,#00,#02
	db #15,#85,#40,#00,#02,#15,#85,#40
	db #00,#02,#13,#85,#40,#00,#02,#13
	db #85,#40,#00,#02,#0e,#85,#40,#00
.l9189 equ $ + 3
	db #02,#0c,#80,#dd,#00,#1f,#12,#83
.l918f equ $ + 1
	db #01,#11,#90,#00,#e7,#8f,#92,#8f
	db #92,#8f,#e9,#92,#e5,#92,#e7,#92
	db #8f,#e9,#92,#e1,#92,#92,#8e,#e7
	db #92,#8f,#8f,#e1,#92,#92,#89,#dd
	db #00,#26,#11,#8a,#85,#40,#00,#02
	db #15,#85,#40,#00,#02,#15,#85,#40
	db #00,#02,#13,#85,#40,#00,#02,#13
	db #85,#40,#00,#02,#0e,#85,#40,#00
.l91d1 equ $ + 3
	db #02,#0c,#80,#db,#11,#1f,#19,#83
	db #01,#11,#8a,#90,#24,#88,#06,#01
	db #02,#00,#fb,#12,#e1,#10,#fb,#12
	db #e1,#12,#13,#15,#fb,#10,#e1,#13
	db #fb,#10,#e1,#0e,#10,#11,#ef,#0d
	db #e1,#90,#18,#0d,#0f,#11,#13,#14
	db #90,#24,#0a,#0c,#0d,#f9,#0f,#e1
	db #0e,#8f,#fb,#10,#e1,#0e,#8f,#f0
	db #10,#8e,#80
.l9213 equ $ + 2
.l9211
	dw l9237,l924b,l92bc,l937f
	dw #0000
.l921f equ $ + 4
.l921d equ $ + 2
	dw l9213,l947f,l9493,l9511
	dw l9553,#0000
.l922b equ $ + 4
.l9229 equ $ + 2
	dw l921f,l964f,l9652,l971f
	dw l971f,l978c,#0000
	dw l922b
.l9237
	db #da,#13,#12,#23,#83,#01,#31,#8a
	db #90,#24,#88,#00,#01,#02,#00,#e1
.l924b equ $ + 4
	db #10,#12,#8f,#80,#db,#13,#12,#23
	db #83,#01,#31,#8a,#90,#24,#88,#00
	db #01,#01,#00,#e1,#13,#13,#13,#13
	db #13,#12,#8e,#8f,#13,#13,#13,#13
	db #13,#12,#8f,#10,#8e,#e7,#10,#ef
	db #8f,#e1,#10,#12,#8f,#13,#13,#13
	db #13,#13,#12,#8e,#8f,#13,#13,#13
	db #13,#13,#12,#8f,#12,#8e,#e7,#12
	db #ef,#8f,#e1,#10,#12,#8f,#13,#13
	db #13,#13,#13,#12,#8e,#8f,#13,#13
	db #13,#13,#13,#12,#8f,#10,#8e,#e7
	db #10,#ef,#8f,#e1,#10,#12,#8f,#13
	db #13,#13,#13,#13,#12,#8e,#8f,#13
	db #13,#13,#13,#13,#12,#8f,#12,#8e
.l92bc equ $ + 5
	db #e7,#12,#f5,#8f,#80,#db,#13,#12
	db #13,#83,#01,#31,#8a,#90,#24,#88
	db #02,#01,#02,#00,#e3,#8f,#e5,#85
	db #06,#80,#02,#0e,#e0,#0e,#10,#0e
	db #0d,#0e,#0d,#0b,#0d,#0b,#09,#0b
	db #09,#07,#09,#07,#06,#07,#06,#04
	db #06,#04,#02,#04,#06,#07,#06,#e3
	db #04,#e1,#02,#04,#8e,#01,#02,#8e
	db #01,#e3,#09,#e1,#0b,#09,#83,#04
	db #51,#9a,#04,#00,#0c,#f3,#09,#96
	db #e0,#09,#0b,#0d,#0b,#0d,#0e,#10
	db #0e,#10,#12,#13,#12,#13,#15,#e9
	db #17,#e3,#19,#e1,#15,#ef,#85,#04
	db #80,#02,#15,#e0,#10,#0d,#09,#0e
	db #0b,#07,#0d,#09,#04,#0b,#07,#02
	db #07,#09,#0d,#0e,#ef,#85,#06,#80
	db #02,#0e,#e0,#09,#07,#04,#0d,#09
	db #07,#0e,#0b,#07,#09,#07,#04,#09
	db #07,#0e,#0b,#09,#07,#04,#0d,#09
	db #07,#0e,#0b,#07,#09,#0d,#0e,#09
	db #0d,#0e,#13,#eb,#85,#09,#80,#01
	db #13,#e1,#13,#12,#e0,#12,#13,#12
	db #10,#12,#10,#0e,#10,#0e,#0d,#0e
	db #0d,#0b,#0d,#0b,#09,#83,#04,#51
	db #9a,#04,#00,#14,#ff,#0e,#96,#80
.l937f
	db #e0,#11,#13,#11,#10,#11,#10,#0e
	db #10,#0e,#0d,#0e,#0d,#0b,#0d,#0b
	db #09,#0b,#09,#07,#09,#07,#06,#07
	db #06,#04,#06,#04,#02,#04,#02,#07
	db #09,#eb,#83,#04,#51,#9a,#04,#00
	db #14,#10,#96,#e1,#83,#01,#11,#85
	db #03,#80,#02,#10,#09,#83,#04,#41
	db #ef,#9a,#04,#00,#0e,#0b,#96,#83
	db #01,#31,#90,#18,#e0,#09,#07,#09
	db #0b,#09,#0b,#0c,#0b,#0c,#0e,#0c
	db #0e,#10,#0e,#10,#11,#10,#11,#13
	db #11,#13,#15,#13,#17,#18,#17,#18
	db #1a,#18,#1a,#1c,#1a,#1c,#1d,#1c
	db #1d,#1f,#1d,#1f,#21,#1c,#1a,#18
	db #1c,#1a,#18,#13,#11,#ef,#83,#04
	db #41,#9a,#0a,#00,#0e,#10,#96,#83
	db #01,#31,#90,#24,#e0,#11,#13,#11
	db #10,#11,#10,#0e,#10,#0e,#0c,#0e
	db #0c,#0b,#0c,#0b,#09,#0b,#09,#07
	db #09,#07,#05,#07,#05,#04,#05,#04
	db #02,#04,#02,#07,#09,#e9,#09,#e1
	db #0b,#0c,#0e,#0c,#0b,#83,#04,#41
	db #9a,#04,#00,#0e,#eb,#09,#96,#83
	db #01,#31,#db,#12,#12,#13,#e0,#18
	db #13,#0c,#00,#18,#13,#0c,#00,#18
	db #13,#0c,#00,#18,#13,#0c,#00,#18
	db #13,#0c,#00,#18,#13,#0c,#00,#18
	db #13,#0c,#00,#18,#13,#0c,#00,#17
	db #13,#0b,#07,#17,#13,#0b,#07,#17
	db #13,#0b,#07,#17,#13,#0b,#07,#17
	db #13,#0b,#07,#17,#13,#0b,#07,#17
	db #13,#0b,#07,#17,#13,#0b,#07,#80
.l947f
	db #da,#13,#12,#23,#83,#01,#31,#8a
	db #90,#24,#88,#00,#01,#02,#00,#e1
.l9493 equ $ + 4
	db #0d,#0e,#8f,#80,#db,#13,#12,#23
	db #83,#01,#31,#8a,#90,#24,#88,#00
	db #01,#01,#00,#e1,#0e,#0e,#0e,#0e
	db #0e,#0e,#8e,#8f,#0e,#0e,#0e,#0e
	db #0e,#0e,#8f,#0d,#8e,#e7,#0d,#ef
	db #8f,#e1,#0d,#0e,#8f,#0e,#0e,#0e
	db #0e,#0e,#0e,#8e,#8f,#0e,#0e,#0e
	db #0e,#0e,#0e,#8f,#0e,#8e,#e7,#0e
	db #ef,#8f,#e1,#0d,#0e,#8f,#0e,#0e
	db #0e,#0e,#0e,#0e,#8e,#8f,#0e,#0e
	db #0e,#0e,#0e,#0e,#8f,#0d,#8e,#e7
	db #0d,#ef,#8f,#e1,#0d,#0e,#8f,#0e
	db #0e,#0e,#0e,#0e,#0e,#8e,#8f,#0e
	db #0e,#0e,#0e,#0e,#0e,#8f,#0e,#8e
	db #e7,#0e,#ed,#8f,#dd,#00,#1f,#14
	db #90,#00,#e1,#10,#0e,#0d,#e0,#0e
.l9511 equ $ + 2
	db #0d,#80,#dc,#11,#12,#13,#83,#01
	db #31,#8a,#88,#00,#01,#02,#00,#90
	db #18,#e3,#8f,#e5,#10,#e1,#13,#12
	db #8e,#e3,#10,#eb,#0e,#ff,#10,#e9
	db #10,#e1,#13,#12,#8e,#e5,#10,#f4
	db #0e,#8e,#e3,#8f,#e5,#10,#e1,#13
	db #12,#8e,#e5,#10,#e9,#0e,#ff,#10
	db #e9,#10,#e1,#13,#12,#8e,#e5,#10
.l9553 equ $ + 4
	db #f4,#0e,#8e,#80,#de,#00,#1f,#13
	db #83,#01,#11,#8a,#88,#06,#01,#01
	db #00,#90,#0c,#e1,#35,#35,#92,#98
	db #8a,#e5,#8f,#e1,#92,#98,#8a,#35
	db #e3,#35,#e1,#92,#98,#8a,#8f,#e3
	db #8f,#e1,#92,#98,#8a,#8f,#e1,#34
	db #34,#92,#98,#8a,#e5,#8f,#e1,#92
	db #98,#8a,#34,#e3,#34,#e1,#92,#98
	db #8a,#8f,#e3,#8f,#e1,#92,#98,#8a
	db #8f,#e1,#3b,#3b,#92,#98,#8a,#e5
	db #8f,#e1,#92,#98,#8a,#3b,#e3,#3b
	db #e1,#92,#98,#8a,#8f,#e3,#8f,#e1
	db #92,#98,#8a,#8f,#e1,#37,#37,#92
	db #98,#8a,#e5,#37,#e1,#92,#98,#8a
	db #37,#e1,#39,#39,#92,#98,#8a,#e5
	db #39,#e1,#92,#98,#8a,#39,#e1,#35
	db #35,#92,#98,#8a,#e5,#8f,#e1,#92
	db #98,#8a,#35,#e3,#35,#e1,#92,#98
	db #8a,#8f,#e3,#8f,#e1,#92,#98,#8a
	db #8f,#e1,#34,#34,#92,#98,#8a,#e5
	db #8f,#e1,#92,#98,#8a,#34,#e3,#34
	db #e1,#92,#98,#8a,#8f,#e3,#8f,#e1
	db #92,#98,#8a,#8f,#d8,#12,#12,#13
	db #83,#01,#31,#90,#24,#99,#e0,#8f
	db #18,#13,#0c,#00,#18,#13,#0c,#00
	db #18,#13,#0c,#00,#18,#13,#0c,#00
	db #18,#13,#0c,#00,#18,#13,#0c,#00
	db #18,#13,#0c,#00,#18,#13,#0c,#00
	db #17,#13,#0b,#07,#17,#13,#0b,#07
	db #17,#13,#0b,#07,#17,#13,#0b,#07
	db #17,#13,#0b,#07,#17,#13,#0b,#07
	db #17,#13,#0b,#07,#17,#13,#0b,#80
.l9652 equ $ + 3
.l964f
	db #e5,#8f,#80,#de,#00,#1f,#13,#83
	db #01,#11,#8a,#98,#e1,#09,#09,#92
	db #98,#8a,#09,#09,#09,#92,#98,#8a
	db #09,#09,#09,#92,#98,#8a,#09,#15
	db #09,#92,#98,#8a,#09,#15,#13,#92
	db #98,#8a,#10,#09,#09,#92,#98,#8a
	db #09,#09,#09,#92,#98,#8a,#09,#09
	db #09,#92,#98,#8a,#09,#09,#09,#92
	db #98,#8a,#09,#09,#09,#92,#98,#8a
	db #09,#09,#09,#92,#98,#8a,#09,#15
	db #09,#92,#98,#8a,#09,#09,#09,#92
	db #98,#8a,#09,#09,#09,#92,#98,#8a
	db #09,#09,#09,#92,#98,#8a,#09,#09
	db #06,#92,#98,#8a,#09,#09,#09,#92
	db #98,#8a,#09,#09,#09,#92,#98,#8a
	db #09,#09,#09,#92,#98,#8a,#09,#15
	db #09,#92,#98,#8a,#09,#15,#13,#92
	db #98,#8a,#10,#09,#09,#92,#98,#8a
	db #09,#09,#09,#92,#98,#8a,#09,#09
	db #09,#92,#98,#8a,#09,#09,#09,#92
	db #98,#8a,#09,#09,#09,#92,#98,#8a
	db #09,#09,#09,#92,#98,#8a,#09,#15
	db #09,#92,#98,#8a,#09,#09,#09,#92
	db #98,#8a,#09,#09,#09,#92,#98,#8a
	db #09,#15,#13,#92,#98,#8a,#09,#de
	db #00,#1f,#12,#92,#92,#92,#92,#80
.l971f
	db #de,#00,#1f,#13,#83,#01,#11,#8a
	db #e1,#09,#09,#92,#98,#8a,#8f,#8f
	db #09,#92,#98,#8a,#06,#09,#09,#92
	db #98,#8a,#8f,#8f,#09,#92,#98,#8a
	db #06,#09,#09,#92,#98,#8a,#8f,#8f
	db #09,#92,#98,#8a,#06,#09,#09,#92
	db #98,#8a,#8f,#8f,#e0,#15,#13,#e1
	db #92,#98,#8a,#13,#09,#09,#92,#98
	db #8a,#8f,#8f,#09,#92,#98,#8a,#06
	db #09,#09,#92,#98,#8a,#8f,#8f,#09
	db #92,#98,#8a,#06,#09,#09,#92,#98
	db #8a,#8f,#8f,#09,#92,#98,#8a,#06
	db #09,#09,#92,#98,#8a,#0e,#15,#13
.l978c equ $ + 5
	db #92,#98,#8a,#0d,#80,#dd,#11,#1f
	db #15,#8a,#99,#e1,#11,#11,#e7,#11
	db #e1,#11,#11,#e3,#11,#eb,#8f,#e1
	db #10,#10,#e7,#10,#e3,#10,#e5,#10
	db #e1,#15,#15,#17,#17,#e0,#0e,#0e
	db #e1,#13,#13,#e7,#13,#e1,#13,#13
	db #e3,#13,#e1,#15,#15,#13,#13,#15
	db #15,#e1,#0c,#0c,#e7,#0c,#e3,#0c
	db #e1,#0e,#0e,#e7,#0e,#e3,#0e,#e1
	db #11,#11,#e7,#11,#e1,#11,#11,#e3
	db #11,#eb,#8f,#e1,#10,#10,#e7,#10
	db #e3,#10,#e5,#10,#e1,#15,#15,#17
	db #17,#e0,#0e,#0e,#de,#00,#1f,#13
	db #8a,#e1,#98,#13,#13,#92,#98,#8a
	db #e5,#13,#e1,#92,#98,#8a,#13,#e3
	db #13,#e1,#92,#98,#8a,#e5,#8f,#e1
	db #92,#98,#8a,#8f,#e1,#13,#13,#92
	db #98,#8a,#e5,#13,#e1,#92,#98,#8a
	db #13,#e3,#13,#e1,#92,#8f,#92,#8f
	db #92,#92,#80
.l9826 equ $ + 4
.l9824 equ $ + 2
.l9822
	dw l9828,l9845,l9892
.l9828
	db #dc,#11,#12,#13,#83,#01,#31,#8a
	db #88,#00,#01,#02,#00,#90,#18,#e9
	db #1e,#f2,#20,#8e,#e9,#23,#f2,#22
.l9845 equ $ + 5
	db #8e,#e3,#20,#20,#91,#de,#00,#1f
	db #14,#83,#01,#11,#8a,#e1,#14,#8f
	db #14,#92,#8a,#14,#20,#8f,#20,#14
	db #92,#8a,#14,#20,#14,#8f,#14,#92
	db #8a,#14,#20,#14,#20,#14,#92,#8a
	db #14,#20,#12,#8f,#12,#92,#8a,#12
	db #1e,#8f,#1e,#12,#92,#8a,#12,#1e
	db #12,#8f,#12,#92,#8a,#12,#1e,#12
	db #1e,#12,#de,#00,#1f,#12,#92,#92
	db #92,#de,#00,#1f,#14,#8a,#e3,#14
.l9892 equ $ + 2
	db #14,#91,#dc,#11,#12,#13,#83,#01
	db #31,#8a,#88,#06,#01,#01,#00,#90
	db #18,#e9,#19,#f2,#1b,#8e,#e9,#1e
	db #f2,#1e,#8e,#e3,#1b,#1b,#91
.l98b3 equ $ + 4
.l98b1 equ $ + 2
.l98af
	dw l98b5,l9934,l994d
.l98b5
	db #dd,#00,#25,#11,#8a,#e0,#85,#40
	db #00,#02,#17,#85,#40,#00,#02,#17
	db #e1,#85,#40,#00,#02,#17,#85,#40
	db #00,#02,#17,#e0,#85,#40,#00,#02
	db #13,#85,#40,#00,#02,#13,#e1,#85
	db #40,#00,#02,#13,#85,#40,#00,#02
	db #13,#e0,#85,#40,#00,#02,#11,#85
	db #40,#00,#02,#11,#e1,#85,#40,#00
	db #02,#11,#85,#40,#00,#02,#11,#85
	db #40,#00,#02,#0e,#85,#40,#00,#02
	db #0e,#e1,#85,#40,#00,#02,#0e,#d7
	db #00,#1f,#11,#e0,#92,#c8,#92,#92
	db #c9,#92,#92,#92,#92,#92,#92,#cb
	db #92,#92,#92,#cc,#92,#92,#92,#cd
	db #92,#92,#92,#ce,#92,#92,#92,#92
.l9934 equ $ + 7
	db #92,#92,#8f,#8f,#e7,#8f,#91,#da
	db #11,#1f,#14,#83,#01,#11,#8a,#f7
	db #8f,#e3,#11,#14,#cb,#13,#16,#cc
	db #15,#cd,#18,#e1,#17,#e7,#8f,#91
.l994d
	db #da,#11,#13,#14,#83,#01,#11,#8a
	db #88,#02,#02,#02,#00,#f7,#8f,#90
	db #18,#b9,#e3,#11,#14,#13,#16,#cb
	db #15,#cc,#18,#e1,#cd,#17,#e7
.l9970 equ $ + 4
.l996e equ $ + 2
	dw l918f,l9986,l9997,#0000
.l9978 equ $ + 4
.l9976 equ $ + 2
	dw l9970,l99ba,l99d2,#0000
.l9980 equ $ + 4
.l997e equ $ + 2
	dw l9978,l99e7,l99f5,#0000
	dw l9980
.l9986
	db #dc,#00,#1f,#14,#83,#01,#21,#8a
	db #88,#04,#02,#02,#00,#eb,#8f,#90
.l9997 equ $ + 1
	db #24,#e1,#b8,#0e,#15,#1a,#0e,#15
	db #1a,#0e,#15,#1a,#0e,#15,#1a,#0e
	db #15,#1a,#0e,#0d,#15,#19,#0d,#15
	db #19,#0d,#15,#19,#0d,#15,#19,#0d
.l99ba equ $ + 4
	db #15,#19,#0d,#80,#dd,#00,#1f,#12
	db #83,#01,#11,#e1,#92,#8f,#92,#8f
	db #8f,#8f,#d9,#13,#12,#15,#83,#01
.l99d2 equ $ + 4
	db #11,#8a,#90,#0c,#e3,#8f,#e5,#b7
	db #1a,#e1,#1a,#8f,#f1,#1a,#e3,#8f
	db #e5,#b5,#15,#e1,#15,#8f,#f1,#15
.l99e7 equ $ + 1
	db #80,#dd,#00,#1f,#14,#83,#01,#11
.l99f5 equ $ + 7
	db #8a,#e5,#8f,#e1,#0d,#0e,#10,#e1
	db #1c,#10,#92,#8a,#1c,#10,#10,#92
	db #8a,#10,#10,#1c,#92,#8a,#10,#92
	db #8a,#19,#92,#8a,#1c,#21,#15,#92
	db #8a,#21,#15,#15,#92,#8a,#15,#15
	db #21,#92,#8a,#15,#92,#8a,#18,#92
	db #92,#8a,#80,#2a,#9a,#00,#00,#21
.l9a29 equ $ + 3
	db #9a,#97,#80,#94,#ff,#8f,#8f,#8f
	db #8f,#8f,#8f,#8f,#8f,#80

;	db #44,#9a,#5b,#9a,#72,#9a,#82,#9a
;	db #92,#9a,#a6,#9a,#b8,#9a,#ca,#9a
;	db #db,#13,#1f,#14,#83,#01,#11,#8a
;	db #86,#f0,#ff,#04,#00,#04,#88,#00
;	db #04,#02,#00,#ff,#15,#8e,#95,#db
;	db #13,#1f,#14,#83,#01,#11,#8a,#86
;	db #f0,#ff,#04,#00,#04,#88,#00,#02
;	db #02,#00,#ff,#21,#8e,#95,#dd,#11
;	db #1f,#12,#83,#01,#11,#8a,#88,#04
;	db #05,#01,#00,#ef,#2d,#95,#dd,#11
;	db #1f,#11,#83,#01,#11,#8a,#88,#00
;	db #03,#01,#00,#e7,#3b,#95,#d4,#42
;	db #00,#21,#83,#02,#21,#8a,#ef,#85
;	db #03,#80,#02,#88,#04,#03,#02,#00
;	db #37,#95,#df,#00,#1f,#11,#83,#01
;	db #11,#8c,#3f,#00,#0a,#04,#e5,#b0
;	db #18,#1d,#8e,#95,#dc,#13,#1f,#18
;	db #83,#01,#11,#f7,#8c,#35,#00,#00
;	db #00,#b0,#82,#10,#8e,#95,#de,#00
;	db #1f,#11,#83,#01,#11,#e5,#8c,#00
;	db #00,#00,#00,#b0,#15,#15,#15,#15
;	db #95,#00,#00,#00,#00,#00,#00,#00
;	db #00,#00,#00,#00,#00,#00,#00,#00
;	db #00,#00
;	db #00,#00,#00,#00,#00,#00,#00,#00
;	db #00,#00,#00,#00,#00,#00,#00,#00
;	db #00,#00
	
;org #9b00
;.l9b00
;nop
;.l9b01
;inc bc
;push af
;.l9b04 equ $ + 1
;ld a,#00
;inc a
;cp #06
;jr nz,l9b18
;call #8006
;ld a,(#8001)
;and a
;jr nz,l9b17
;inc a
;ld (l9b00),a
;.l9b17
;xor a
;.l9b18
;ld (l9b04),a
;pop af
;ei
;reti
;di
;ld (l9b01),a
;ld (#8000),a
;im 1
;ld hl,#0038
;ld (hl),#c3
;inc hl
;ld (hl),#02
;inc hl
;ld (hl),#9b
;ld a,#10
;ld (#8005),a
;xor a
;ld (#8003),a
;ld (#8001),a
;ld (l9b00),a
;ei
;ret
;ld a,#0a
;ld (#8003),a
;ld (#8004),a
;ei
;.l9b4d
;ld a,(#8001)
;and a
;jr nz,l9b4d
;.l9b53
;di
;ld hl,#0038
;ld (hl),#ed
;inc hl
;ld (hl),#4d
;ret
;di
;ld a,#ff
;ld (#8000),a
;xor a
;ld (#8001),a
;call #8006
;jr l9b53

.game_name
	db "Super Monaco GP",0
.game_year
	db "1991",0
.game_publisher
	db "U.S. Gold",0
.music_author
	db "Tiny Williams",0
.music_comment
	db "SOUND IMAGES (C) 1990",0

	read "music_end_v1_0.asm"
